home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / LOGO / H282.ZIP / MSWLOGO.ZIP / EXAMPLES.ZIP / CDROM < prev    next >
Encoding:
Text File  |  1992-12-08  |  212 b   |  9 lines
  1. to playcd :a
  2. print sentence [opened cd on channel] mci [open cdaudio alias cd]
  3. mci [set cd time format tmsf]
  4. mci sentence [play cd from] :a
  5. print sentence [playing the cd on track] :a
  6. mci [close cd]
  7. end
  8.  
  9.